Читает указанное количество символов из файла TextStream и возвращает результирующую строку.

object.Read(characters)

Параметры
object объект типа TextStream
characters Обязательный. Количество символов, которые нужно прочитать из файла

Пример
Следующий код иллюстрирует использование Read метода:

Function ReadTextFileTest
  Const ForReading = 1, ForWriting = 2, ForAppending = 8
  Dim fso, f, Msg
  Set fso = CreateObject("Scripting.FileSystemObject")   
  Set f = fso.OpenTextFile("c:\testfile.txt", ForWriting, True)
  f.Write "Hello world!"
  Set f = fso.OpenTextFile("c:\testfile.txt", ForReading)
  ReadTextFileTest =  f.Read(5)
End Function